﻿Public Class FeuerkrafttabelleJessPanzer120
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 120
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 120
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 120
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleJessPanzer130
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 130
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 130
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 130
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleJessPanzer150
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 150
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 150
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 150
        End Select
    End Function
End Class
Public Class FeuerkrafttabelleJessPanzer170
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 90
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 90
            Case MovementSorts.Transport.ToString.ToUpper
                Return 90
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 90
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 100
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 90
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 170
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 170
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 170
        End Select
    End Function
End Class